home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / irc / abbr-cc.lha / cc.amirx < prev   
Encoding:
Text File  |  1998-04-20  |  13.5 KB  |  282 lines
  1. /* Wolfecats CountryCode AmIRC add-on
  2.  
  3.    Always wanted to know just where .cr was? or .am? 
  4.    on someone's ip address?  Well, now just do
  5.    /rx cc am  and it will tell you!
  6.  
  7. :)
  8.  
  9. See me on #AmIRC Undernet if you need any help
  10. or
  11. email me at wolfecat@snet.net  (or) danger@ctol.net
  12. whichever works
  13.  
  14. do a /alias cc /rx cc.amirx %p
  15.  
  16. and then /cc countrycode that you want ie.
  17.  
  18.   /cc uk   would show UK = United Kingdom
  19.  
  20.  
  21. */
  22.  
  23. options results
  24. arg country
  25.  
  26. cc=upper(country)
  27. IF cc="AD" then do;'echo AD =    Andorra';a=5;end
  28. IF cc="AE" then do;'echo AE =    United Arab Emirates';a=5;end
  29. IF cc="AF" then do;'echo AF =    Afghanistan';a=5;end
  30. IF cc="AG" then do;'echo AG =    Antigua and Barbuda';a=5;end
  31. IF cc="AI" then do;'echo AI =    Anguilla';a=5;end
  32. IF cc="AL" then do;'echo AL =    Albania';a=5;end
  33. IF cc="AM" then do;'echo AM =    Armenia';a=5;end
  34. IF cc="AN" then do;'echo AN =    Netherlands Antilles';a=5;end
  35. IF cc="AO" then do;'echo AO =    Angola';a=5;end
  36. IF cc="AQ" then do;'echo AQ =    Antarctica';a=5;end
  37. IF cc="AR" then do;'echo AR =    Argentina';a=5;end
  38. IF cc="AS" then do;'echo AS =    American Samoa';a=5;end
  39. IF cc="AT" then do;'echo AT =    Austria';a=5;end
  40. IF cc="AU" then do;'echo AU =    Australia';a=5;end
  41. IF cc="AW" then do;'echo AW =    Aruba';a=5;end
  42. IF cc="AZ" then do;'echo AZ =    Azerbaijan';a=5;end
  43. IF cc="BA" then do;'echo BA =    Bosnia and Herzegovina';a=5;end
  44. IF cc="BB" then do;'echo BB =    Barbados';a=5;end
  45. IF cc="BD" then do;'echo BD =    Bangladesh';a=5;end
  46. IF cc="BE" then do;'echo BE =    Belgium';a=5;end
  47. IF cc="BF" then do;'echo BF =    Burkina Faso';a=5;end
  48. IF cc="BG" then do;'echo BG =    Bulgaria';a=5;end
  49. IF cc="BH" then do;'echo BH =    Bahrain';a=5;end
  50. IF cc="BI" then do;'echo BI =    Burundi';a=5;end
  51. IF cc="BJ" then do;'echo BJ =    Benin';a=5;end
  52. IF cc="BM" then do;'echo BM =    Bermuda';a=5;end
  53. IF cc="BN" then do;'echo BN =    Brunei Darussalam';a=5;end
  54. IF cc="BO" then do;'echo BO =    Bolivia';a=5;end
  55. IF cc="BR" then do;'echo BR =    Brazil';a=5;end
  56. IF cc="BS" then do;'echo BS =    Bahamas';a=5;end
  57. IF cc="BT" then do;'echo BT =    Bhutan';a=5;end
  58. IF cc="BV" then do;'echo BV =    Bouvet Island';a=5;end
  59. IF cc="BW" then do;'echo BW =    Botswana';a=5;end
  60. IF cc="BY" then do;'echo BY =    Belarus';a=5;end
  61. IF cc="BZ" then do;'echo BZ =    Belize';a=5;end
  62. IF cc="CA" then do;'echo CA =    Canada';a=5;end
  63. IF cc="CC" then do;'echo CC =    Cocos (Keeling) Islands';a=5;end
  64. IF cc="CF" then do;'echo CF =    Central African Republic';a=5;end
  65. IF cc="CG" then do;'echo CG =    Congo';a=5;end
  66. IF cc="CH" then do;'echo CH =    Switzerland';a=5;end
  67. IF cc="CI" then do;'echo CI =    Cote DIvoire (Ivory Coast)';a=5;end
  68. IF cc="CK" then do;'echo CK =    Cook Islands';a=5;end
  69. IF cc="CL" then do;'echo CL =    Chile';a=5;end
  70. IF cc="CM" then do;'echo CM =    Cameroon';a=5;end
  71. IF cc="CN" then do;'echo CN =    China';a=5;end
  72. IF cc="CO" then do;'echo CO =    Colombia';a=5;end
  73. IF cc="CR" then do;'echo CR =    Costa Rica';a=5;end
  74. IF cc="CS" then do;'echo CS =    Czechoslovakia (former)';a=5;end
  75. IF cc="CU" then do;'echo CU =    Cuba';a=5;end
  76. IF cc="CV" then do;'echo CV =    Cape Verde';a=5;end
  77. IF cc="CX" then do;'echo CX =    Christmas Island';a=5;end
  78. IF cc="CY" then do;'echo CY =    Cyprus';a=5;end
  79. IF cc="CZ" then do;'echo CZ =    Czech Republic';a=5;end
  80. IF cc="DE" then do;'echo DE =    Germany';a=5;end
  81. IF cc="DJ" then do;'echo DJ =    Djibouti';a=5;end
  82. IF cc="DK" then do;'echo DK =    Denmark';a=5;end
  83. IF cc="DM" then do;'echo DM =    Dominica';a=5;end
  84. IF cc="DO" then do;'echo DO =    Dominican Republic';a=5;end
  85. IF cc="DZ" then do;'echo DZ =    Algeria';a=5;end
  86. IF cc="EC" then do;'echo EC =    Ecuador';a=5;end
  87. IF cc="EE" then do;'echo EE =    Estonia';a=5;end
  88. IF cc="EG" then do;'echo EG =    Egypt';a=5;end
  89. IF cc="EH" then do;'echo EH =    Western Sahara';a=5;end
  90. IF cc="ER" then do;'echo ER =    Eritrea';a=5;end
  91. IF cc="ES" then do;'echo ES =    Spain';a=5;end
  92. IF cc="ET" then do;'echo ET =    Ethiopia';a=5;end
  93. IF cc="FI" then do;'echo FI =    Finland';a=5;end
  94. IF cc="FJ" then do;'echo FJ =    Fiji';a=5;end
  95. IF cc="FK" then do;'echo FK =    Falkland Islands (Malvinas)';a=5;end
  96. IF cc="FM" then do;'echo FM =    Micronesia';a=5;end
  97. IF cc="FO" then do;'echo FO =    Faroe Islands';a=5;end
  98. IF cc="FR" then do;'echo FR =    France';a=5;end
  99. IF cc="FX" then do;'echo FX =    France, Metropolitan';a=5;end
  100. IF cc="GA" then do;'echo GA =    Gabon';a=5;end
  101. IF cc="GB" then do;'echo GB =    Great Britain (UK)';a=5;end
  102. IF cc="GD" then do;'echo GD =    Grenada';a=5;end
  103. IF cc="GE" then do;'echo GE =    Georgia';a=5;end
  104. IF cc="GF" then do;'echo GF =    French Guiana';a=5;end
  105. IF cc="GH" then do;'echo GH =    Ghana';a=5;end
  106. IF cc="GI" then do;'echo GI =    Gibraltar';a=5;end
  107. IF cc="GL" then do;'echo GL =    Greenland';a=5;end
  108. IF cc="GM" then do;'echo GM =    Gambia';a=5;end
  109. IF cc="GN" then do;'echo GN =    Guinea';a=5;end
  110. IF cc="GP" then do;'echo GP =    Guadeloupe';a=5;end
  111. IF cc="GQ" then do;'echo GQ =    Equatorial Guinea';a=5;end
  112. IF cc="GR" then do;'echo GR =    Greece';a=5;end
  113. IF cc="GS" then do;'echo GS =    S. Georgia and S. Sandwich Isls.';a=5;end
  114. IF cc="GT" then do;'echo GT =    Guatemala';a=5;end
  115. IF cc="GU" then do;'echo GU =    Guam';a=5;end
  116. IF cc="GW" then do;'echo GW =    Guinea-Bissau';a=5;end
  117. IF cc="GY" then do;'echo GY =    Guyana';a=5;end
  118. IF cc="HK" then do;'echo HK =    Hong Kong';a=5;end
  119. IF cc="HM" then do;'echo HM =    Heard and McDonald Islands';a=5;end
  120. IF cc="HN" then do;'echo HN =    Honduras';a=5;end
  121. IF cc="HR" then do;'echo HR =    Croatia (Hrvatska)';a=5;end
  122. IF cc="HT" then do;'echo HT =    Haiti';a=5;end
  123. IF cc="HU" then do;'echo HU =    Hungary';a=5;end
  124. IF cc="ID" then do;'echo ID =    Indonesia';a=5;end
  125. IF cc="IE" then do;'echo IE =    Ireland';a=5;end
  126. IF cc="IL" then do;'echo IL =    Israel';a=5;end
  127. IF cc="IN" then do;'echo IN =    India';a=5;end
  128. IF cc="IO" then do;'echo IO =    British Indian Ocean Territory';a=5;end
  129. IF cc="IQ" then do;'echo IQ =    Iraq';a=5;end
  130. IF cc="IR" then do;'echo IR =    Iran';a=5;end
  131. IF cc="IS" then do;'echo IS =    Iceland';a=5;end
  132. IF cc="IT" then do;'echo IT =    Italy';a=5;end
  133. IF cc="JM" then do;'echo JM =    Jamaica';a=5;end
  134. IF cc="JO" then do;'echo JO =    Jordan';a=5;end
  135. IF cc="JP" then do;'echo JP =    Japan';a=5;end
  136. IF cc="KE" then do;'echo KE =    Kenya';a=5;end
  137. IF cc="KG" then do;'echo KG =    Kyrgyzstan';a=5;end
  138. IF cc="KH" then do;'echo KH =    Cambodia';a=5;end
  139. IF cc="KI" then do;'echo KI =    Kiribati';a=5;end
  140. IF cc="KM" then do;'echo KM =    Comoros';a=5;end
  141. IF cc="KN" then do;'echo KN =    Saint Kitts and Nevis';a=5;end
  142. IF cc="KP" then do;'echo KP =    Korea (North)';a=5;end
  143. IF cc="KR" then do;'echo KR =    Korea (South)';a=5;end
  144. IF cc="KW" then do;'echo KW =    Kuwait';a=5;end
  145. IF cc="KY" then do;'echo KY =    Cayman Islands';a=5;end
  146. IF cc="KZ" then do;'echo KZ =    Kazakhstan';a=5;end
  147. IF cc="LA" then do;'echo LA =    Laos';a=5;end
  148. IF cc="LB" then do;'echo LB =    Lebanon';a=5;end
  149. IF cc="LC" then do;'echo LC =    Saint Lucia';a=5;end
  150. IF cc="LI" then do;'echo LI =    Liechtenstein';a=5;end
  151. IF cc="LK" then do;'echo LK =    Sri Lanka';a=5;end
  152. IF cc="LR" then do;'echo LR =    Liberia';a=5;end
  153. IF cc="LS" then do;'echo LS =    Lesotho';a=5;end
  154. IF cc="LT" then do;'echo LT =    Lithuania';a=5;end
  155. IF cc="LU" then do;'echo LU =    Luxembourg';a=5;end
  156. IF cc="LV" then do;'echo LV =    Latvia';a=5;end
  157. IF cc="LY" then do;'echo LY =    Libya';a=5;end
  158. IF cc="MA" then do;'echo MA =    Morocco';a=5;end
  159. IF cc="MC" then do;'echo MC =    Monaco';a=5;end
  160. IF cc="MD" then do;'echo MD =    Moldova';a=5;end
  161. IF cc="MG" then do;'echo MG =    Madagascar';a=5;end
  162. IF cc="MH" then do;'echo MH =    Marshall Islands';a=5;end
  163. IF cc="MK" then do;'echo MK =    Macedonia';a=5;end
  164. IF cc="ML" then do;'echo ML =    Mali';a=5;end
  165. IF cc="MM" then do;'echo MM =    Myanmar';a=5;end
  166. IF cc="MN" then do;'echo MN =    Mongolia';a=5;end
  167. IF cc="MO" then do;'echo MO =    Macau';a=5;end
  168. IF cc="MP" then do;'echo MP =    Northern Mariana Islands';a=5;end
  169. IF cc="MQ" then do;'echo MQ =    Martinique';a=5;end
  170. IF cc="MR" then do;'echo MR =    Mauritania';a=5;end
  171. IF cc="MS" then do;'echo MS =    Montserrat';a=5;end
  172. IF cc="MT" then do;'echo MT =    Malta';a=5;end
  173. IF cc="MU" then do;'echo MU =    Mauritius';a=5;end
  174. IF cc="MV" then do;'echo MV =    Maldives';a=5;end
  175. IF cc="MW" then do;'echo MW =    Malawi';a=5;end
  176. IF cc="MX" then do;'echo MX =    Mexico';a=5;end
  177. IF cc="MY" then do;'echo MY =    Malaysia';a=5;end
  178. IF cc="MZ" then do;'echo MZ =    Mozambique';a=5;end
  179. IF cc="NA" then do;'echo NA =    Namibia';a=5;end
  180. IF cc="NC" then do;'echo NC =    New Caledonia';a=5;end
  181. IF cc="NE" then do;'echo NE =    Niger';a=5;end
  182. IF cc="NF" then do;'echo NF =    Norfolk Island';a=5;end
  183. IF cc="NG" then do;'echo NG =    Nigeria';a=5;end
  184. IF cc="NI" then do;'echo NI =    Nicaragua';a=5;end
  185. IF cc="NL" then do;'echo NL =    Netherlands';a=5;end
  186. IF cc="NO" then do;'echo NO =    Norway';a=5;end
  187. IF cc="NP" then do;'echo NP =    Nepal';a=5;end
  188. IF cc="NR" then do;'echo NR =    Nauru';a=5;end
  189. IF cc="NT" then do;'echo NT =    Neutral Zone';a=5;end
  190. IF cc="NU" then do;'echo NU =    Niue';a=5;end
  191. IF cc="NZ" then do;'echo NZ =    New Zealand (Aotearoa)';a=5;end
  192. IF cc="OM" then do;'echo OM =    Oman';a=5;end
  193. IF cc="PA" then do;'echo PA =    Panama';a=5;end
  194. IF cc="PE" then do;'echo PE =    Peru';a=5;end
  195. IF cc="PF" then do;'echo PF =    French Polynesia';a=5;end
  196. IF cc="PG" then do;'echo PG =    Papua New Guinea';a=5;end
  197. IF cc="PH" then do;'echo PH =    Philippines';a=5;end
  198. IF cc="PK" then do;'echo PK =    Pakistan';a=5;end
  199. IF cc="PL" then do;'echo PL =    Poland';a=5;end
  200. IF cc="PM" then do;'echo PM =    St. Pierre and Miquelon';a=5;end
  201. IF cc="PN" then do;'echo PN =    Pitcairn';a=5;end
  202. IF cc="PR" then do;'echo PR =    Puerto Rico';a=5;end
  203. IF cc="PT" then do;'echo PT =    Portugal';a=5;end
  204. IF cc="PW" then do;'echo PW =    Palau';a=5;end
  205. IF cc="PY" then do;'echo PY =    Paraguay';a=5;end
  206. IF cc="QA" then do;'echo QA =    Qatar';a=5;end
  207. IF cc="RE" then do;'echo RE =    Reunion';a=5;end
  208. IF cc="RO" then do;'echo RO =    Romania';a=5;end
  209. IF cc="RU" then do;'echo RU =    Russian Federation';a=5;end
  210. IF cc="RW" then do;'echo RW =    Rwanda';a=5;end
  211. IF cc="SA" then do;'echo SA =    Saudi Arabia';a=5;end
  212. IF cc="SB" then do;'echo SB =    Solomon Islands';a=5;end
  213. IF cc="SC" then do;'echo SC =    Seychelles';a=5;end
  214. IF cc="SD" then do;'echo SD =    Sudan';a=5;end
  215. IF cc="SE" then do;'echo SE =    Sweden';a=5;end
  216. IF cc="SG" then do;'echo SG =    Singapore';a=5;end
  217. IF cc="SH" then do;'echo SH =    St. Helena';a=5;end
  218. IF cc="SI" then do;'echo SI =    Slovenia';a=5;end
  219. IF cc="SJ" then do;'echo SJ =    Svalbard and Jan Mayen Islands';a=5;end
  220. IF cc="SK" then do;'echo SK =    Slovak Republic';a=5;end
  221. IF cc="SL" then do;'echo SL =    Sierra Leone';a=5;end
  222. IF cc="SM" then do;'echo SM =    San Marino';a=5;end
  223. IF cc="SN" then do;'echo SN =    Senegal';a=5;end
  224. IF cc="SO" then do;'echo SO =    Somalia';a=5;end
  225. IF cc="SR" then do;'echo SR =    Suriname';a=5;end
  226. IF cc="ST" then do;'echo ST =    Sao Tome and Principe';a=5;end
  227. IF cc="SU" then do;'echo SU =    USSR (former)';a=5;end
  228. IF cc="SV" then do;'echo SV =    El Salvador';a=5;end
  229. IF cc="SY" then do;'echo SY =    Syria';a=5;end
  230. IF cc="SZ" then do;'echo SZ =    Swaziland';a=5;end
  231. IF cc="TC" then do;'echo TC =    Turks and Caicos Islands';a=5;end
  232. IF cc="TD" then do;'echo TD =    Chad';a=5;end
  233. IF cc="TF" then do;'echo TF =    French Southern Territories';a=5;end
  234. IF cc="TG" then do;'echo TG =    Togo';a=5;end
  235. IF cc="TH" then do;'echo TH =    Thailand';a=5;end
  236. IF cc="TJ" then do;'echo TJ =    Tajikistan';a=5;end
  237. IF cc="TK" then do;'echo TK =    Tokelau';a=5;end
  238. IF cc="TM" then do;'echo TM =    Turkmenistan';a=5;end
  239. IF cc="TN" then do;'echo TN =    Tunisia';a=5;end
  240. IF cc="TO" then do;'echo TO =    Tonga';a=5;end
  241. IF cc="TP" then do;'echo TP =    East Timor';a=5;end
  242. IF cc="TR" then do;'echo TR =    Turkey';a=5;end
  243. IF cc="TT" then do;'echo TT =    Trinidad and Tobago';a=5;end
  244. IF cc="TV" then do;'echo TV =    Tuvalu';a=5;end
  245. IF cc="TW" then do;'echo TW =    Taiwan';a=5;end
  246. IF cc="TZ" then do;'echo TZ =    Tanzania';a=5;end
  247. IF cc="UA" then do;'echo UA =    Ukraine';a=5;end
  248. IF cc="UG" then do;'echo UG =    Uganda';a=5;end
  249. IF cc="UK" then do;'echo UK =    United Kingdom';a=5;end
  250. IF cc="UM" then do;'echo UM =    US Minor Outlying Islands';a=5;end
  251. IF cc="US" then do;'echo US =    United States';a=5;end
  252. IF cc="UY" then do;'echo UY =    Uruguay';a=5;end
  253. IF cc="UZ" then do;'echo UZ =    Uzbekistan';a=5;end
  254. IF cc="VA" then do;'echo VA =    Vatican City State (Holy See)';a=5;end
  255. IF cc="VC" then do;'echo VC =    Saint Vincent and the Grenadines';a=5;end
  256. IF cc="VE" then do;'echo VE =    Venezuela';a=5;end
  257. IF cc="VG" then do;'echo VG =    Virgin Islands (British)';a=5;end
  258. IF cc="VI" then do;'echo VI =    Virgin Islands (U.S.)';a=5;end
  259. IF cc="VN" then do;'echo VN =    Viet Nam';a=5;end
  260. IF cc="VU" then do;'echo VU =    Vanuatu';a=5;end
  261. IF cc="WF" then do;'echo WF =    Wallis and Futuna Islands';a=5;end
  262. IF cc="WS" then do;'echo WS =    Samoa';a=5;end
  263. IF cc="YE" then do;'echo YE =    Yemen';a=5;end
  264. IF cc="YT" then do;'echo YT =    Mayotte';a=5;end
  265. IF cc="YU" then do;'echo YU =    Yugoslavia';a=5;end
  266. IF cc="ZA" then do;'echo ZA =    South Africa';a=5;end
  267. IF cc="ZM" then do;'echo ZM =    Zambia';a=5;end
  268. IF cc="ZR" then do;'echo ZR =    Zaire';a=5;end
  269. IF cc="ZW" then do;'echo ZW =    Zimbabwe';a=5;end
  270. IF cc="COM" then do;'echo COM =   US Commercial';a=5;end
  271. IF cc="EDU" then do;'echo EDU =   US Educational';a=5;end
  272. IF cc="GOV" then do;'echo GOV =   US Government';a=5;end
  273. IF cc="INT" then do;'echo INT =   International';a=5;end
  274. IF cc="MIL" then do;'echo MIL =   US Military';a=5;end
  275. IF cc="NET" then do;'echo NET =   Network';a=5;end
  276. IF cc="ORG" then do;'echo ORG =  Non-Profit Organization';a=5;end
  277.  
  278.  
  279. if a~=5 then 'echo Country Not Found'
  280. exit
  281.  
  282.